﻿Public Class Buscar_Autor
    Dim datos_clase As New datos

    Private Sub cargarAutores()
        Dim tabla As New DataTable
        Dim sql As String = "SELECT autor.id_autor, autor.nombre, autor.apellido, nacionalidad.nombre FROM autor INNER JOIN nacionalidad ON autor.id_nacionalidad = nacionalidad.id_nacionalidad"
        tabla = datos_clase.ejecutar_sql(sql)
        Dim fila As Integer = 0

        grilla_autores.Rows.Clear()

        For fila = 0 To tabla.Rows.Count - 1
            grilla_autores.Rows.Add()
            grilla_autores.Rows(fila).Cells(0).Value = tabla.Rows(fila)(0)
            grilla_autores.Rows(fila).Cells(1).Value = tabla.Rows(fila)(1)
            grilla_autores.Rows(fila).Cells(2).Value = tabla.Rows(fila)(2)
            grilla_autores.Rows(fila).Cells(3).Value = tabla.Rows(fila)(3)
        Next
    End Sub

    Private Sub Buscar_Autores_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cargarAutores()
    End Sub

    Private Sub grilla_autores_CellDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles grilla_autores.CellDoubleClick
        Dim condicion As String = "id_autor = '" & grilla_autores.CurrentRow.Cells(0).Value & "'"
        Dim tabla As DataTable = datos_clase.leo_tabla("autor", condicion)

        Gestion_Temas.txt_id_autor.Text = tabla.Rows(0)(0)
        Gestion_Temas.txt_nombre.Text = tabla.Rows(0)(1)
        Gestion_Temas.txt_apellido.Text = tabla.Rows(0)(2)
        Gestion_Temas.cmb_nacionalidad.SelectedValue = tabla.Rows(0)(3)

        Me.Close()
    End Sub

    Private Sub btn_salir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_salir.Click
        Me.Close()
    End Sub
End Class